#!/bin/perl
shift(@ARGV);
$pgm = $ARGV[0];
print "cmd=@ARGV\n";
if ( ! -e $pgm ) {
	$pgm = "/bin/$pgm";
	print "new pgm=$pgm\n";
	$ARGV[0] = $pgm;
}
exec @ARGV;
